home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 2000 November / cd joystick no120 novembre 2000 cd 1.iso / data / demos / gunlok / data1.cab / Program_Executable_Files / scripts / yellowbulb.gsh < prev    next >
Text File  |  2000-08-22  |  1KB  |  54 lines
  1. // defines yellow light
  2. ////////////////////////////////////////////////////////////////////////////////////
  3.  
  4. // start wrapper - prevent multiple inclusions or recursive inclusions
  5.  
  6. //(this currently causes 'unrecognized preprocessor directive' warnings, until implemented)
  7. #ifndef INCLUDED_yellow_GSH
  8. #define INCLUDED_yellow_GSH
  9.  
  10. ////////////////////////////////////////////////////////////////////////////////////
  11.  
  12. #include "defaults.gsh"
  13.  
  14. pgenerator Pgn_yellow
  15. {
  16.     type corona
  17.     life infinite
  18.     rate 1
  19.     
  20.     // stream direction
  21.     x    0
  22.     y    0
  23.     z    0
  24.     
  25.     // particle colour
  26.     red   4
  27.     green 2
  28.     blue  0.2
  29.     alpha 1
  30. }
  31.  
  32. light Lit_yellow
  33. {
  34.     red             0.8
  35.     green           0.5
  36.     blue            0.1
  37.     specular red    0.8
  38.     specular green    0.5
  39.     specular blue    0.1
  40.     range           10
  41. }
  42.  
  43. role Rol_yellow : Rol_PlacedObject
  44. {
  45.     shape Pgn_yellow
  46.     light Lit_yellow
  47.     identifier "yellowbulb"
  48. }
  49.  
  50. ////////////////////////////////////////////////////////////////////////////////////
  51.  
  52. // end wrapper - for preventing multiple or recursive inclusions
  53. #endif // !INCLUDED_yellow_GSH
  54.